10 OPEN1,8,15:M$="M-W":Q$=CHR$(34):FORI=3328TO4552STEP34:B$=""
20 PRINT"[147]"4552-I:FORJ=0TO33:B$=B$+CHR$(PEEK(I+J)):NEXT
30 H=INT(I/256)-10:L=IAND255:PRINT#1,M$CHR$(L)CHR$(H)Q$B$;:NEXT
40 PRINT#1,"M-E"CHR$(108)CHR$(6):SYS2304